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UNIVERSITY COMPUTING CENTER 
029 KEYPUNCH OPERATING INSTRUCTIONS 


(Ref. State University of New York at Buffalo, Computing Center) - 


The purpose of this machine is to transfer information into a form 
(punched cards) acceptable to a computer. The information or data 
is converted into holes or combinations of holes in specific columns 
of the card. 


The keyboard of the 029 is similar in structure to that of an IBM 
selectric typewriter, except that the location of the numerals has 

been moved to the right hand side and is arranged in the same forma- 
tion as it would appear on a desk calculator. There are also several 
special characters which will be explained below. A manual published 
by IBM, entitled Reference Manual, IBM 29 Card Punch (Publication 
perusal. The manual describes in detail every facet of keypunch opera- 
tion including use of the Program Drum. 


The 029 has two modes. Its natural state is Alphabetic, which means 
that the lower case characters (those appearing on the lower half of 
the keys) will be punched. If the Numeric (upper case) mode is desired, 
the NUM key, on the lower left side of the keyboard must be depressed 
while striking the numerals or characters desired. 


Normally the machine will be already turned ON. If not, the switch is 
located under the console on the lower right hand side. Check to see 
that there is a sufficient number of blank cards in the hopper on the 
upper right. In the event that fresh cards are required, joggle them 
against the machine and fan them, making sure they are even before 
placing them in the hopper, face forward, 9-edge down. 


SWITCH PANEL, AUTOSKIP DUP, ONE TWO PROG SEL AND L~Z PRINT may be 
ignored. See the keypunch reference manual for an explanation of these 


functions, if desired. 


The AUTO FEED switch should be in the ON position (up) if it is desired 
to have cards continuously feed through the machine. If single cards 
are to be punched, this switch should be OFF (down). 


The PRINT switch should be in the ON position if printing is to appear 
at the top of the punched cards. 
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When the CLEAR switch is pushed up momentarily the machine will be 
automatically cleared of cards. This operation should be performed 
at the end of each keypunching job; it satisfies the following three 
conditions: 


1. It leaves the card bed clean for the next user who may have 
corrections, and as a result will not want the card bed full 
of cards. 


2. It conserves cards which are wasted if the card bed has -to 
be cleaned out by the next user. 


3. It keeps cards from getting warped and useless while sitting 
in the card bed. 


To begin punching, press the FEED key twice to bring one card into the 
PUNCH position and one card into READY status. If only one card is 
being punched, press FEED once and REG once. This will position the 
card for punching. When the card is punched, press CLEAR to release 
and stack the card. 


There is an automatic method of sustaining the Numeric mode. This is 
accomplished by using the PROGRAM DRUM, which is located behind the 
window in the center of the machine. Using the program drum, it is 
possible to automatically skip or duplicate specific columns, a useful 
option when working in a predetermined format. 


CAUTION - NEVER remove the program drum from the machine when it 
is engaged (butterfly switch to the left). 


When the program drum is not.in use, the butterfly switch (located 
under the center window) is flipped to the right. If the butterfly 
‘switch is flipped to the left, the program drum is engaged. 
Program drums may be checked out at the service window in the Computing 
Center (Room 34), if not already with the keypunch. 

KEYBOARD FEATURES 
MC, AUX DUP, and LEFT ZERO are inoperable on our machines and are locked. 
PROG ONE and PROG TWO are used in conjunction with the program drum. 
MULT PCH allows multiple punches in one column where non-standard 
characters might be required. While the key is depressed, the card 


is held in position to permit the striking of one or more hole combina-— 
tions in one card column. 
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SPACE BAR and SKIP allow single spacing. When used with a proper pro- 
gram card on the program drum, SKIP performs the function of a tab key 
on a typewriter. 


ERROR RESET on lower left side of the keyboard will normally free the 
keyboard if it locks internally. This key is used when there is no 
obvious card jam. If the machine still fails to respond, call a quali- 
fied operator. If no one is available, leave a note on the machine 
explaining the difficulties. DO NOT attempt to remove a card jam. 


DUP is used to duplicate the punches read from the card at the reading 
station into the card at the punching station, column for column. The 
procedure is as follows: 


1. Press CLEAR. 

2. Turn AUTO FEED off. 

3. Insert the punched card to be duplicated into the reading 
station under the drum window. 

4, Press FEED. 

5. Press REG. 

6. Hold down the DUP key until the new card is ere 


If more than one esieeeed of the same card is desired, leave AUTO FEED 
on during the above steps and continue to hold down DUP until you have 
as many cards as needed. 


In order to correct mistakes during punching without repunching the entire 
card, the DUP key is used as follows: | 


1. Press REL. 

2. Disengage program drum. 

3. Depress DUP key until the column where the error was made is 
reached. The column to be punched is indicated by the number 
immediatlely above the red arrow beneath the program drum. 

4, Engage program drum and continue punching as before. 


BACKSPACE key is located in the upper center of the machine directly 
under the drum. This feature allows you to backspace the card currently 
being punched. Again, the red indicator behind the program drum window 
shows what column is about to be punched. 


All other keys on the 029 are self-explanatory. If there are any 
further questions, ask the student assistant at the Consulting desk 
in the Computing Center for assistance or read the Reference Manual 
IBM 29 Card Punch. | 


UNIVERSITY OF HOUSTON 
Keypunch Locations 


Keypunch machines for student use are located at the following places: 


le 
Le 
J 


Computing Center - North Side of Elgin at Entrance 4 
Central Site - Underground between C&O and E bei idings 
Cullen College of Engineering - Basement 

Heyne Building - Basement - Room 21 


Science and Research Building - Room 221 


HONEYWELL 66/60 
STANDARD RUN STREAM 


The following card deck set-up is necessary for executing a FORTRAN 
program. The FORTRAN Main and FORTRAN subprograms together comprise 
the FORTRAN program to be executed. The program with associated control 
cards is as follows: 


j 8 IP (Beginning card column of fields below) 
| 
$ IDENT daaaaaaaaa$password,name 
$ USERID C@MPUTER$PR@GS 
$ OPTIPN FORTRAN, N@MAP 
$ FORTRAN | 
$ INCODE 1 BME eee 
F@RTRAN Main Program | 
FORTRAN Subprograms (if any) =) ——— 0" ne 
¢ EXECUTE | | 
§ INCODE {BMEL <—— 
i Data cards (if any)/Data file Control Cards 
$ ENDJOB 
| | 
Notes: 


1. The '$ IDENT' card is the first card in your deck and the 
'¢ ENDJOB' is the last. 


2. The cards that have a $-sign in card column 1 are called GCOS 
Batch Control Cards. 


3. Each line above represents one card in your deck. Of course, 
the FORTRAN decks themselves will be many cards. 


4. '‘aaaaaaaaaa$password' is called the account number. This will 
be furnished by your instructor. 


5. ‘name' is a 1 to 12 character name provided by you-—e.g., it 
could be your initials 


6. All other words appearing in the GCOS Batch Control Cards must 
be typed just as they appear here, in the card columns indicated 


7. If no FORTRAN subprograms or data are provided, their position 
in. the deck will simply be void. 


8. The '$ INCODE IBMEL' card causes translation of cards punched 
in IBM 029 code. 


9. Certain data for homework assignments is furnished to you via 
the JCL command '$ Select'. This command is detailed in 
assignments 5 and 6. 


PROGRAM #1 
TEMPERATURE CONVERSION 


The first program you are to do is essentially a trial run. 
The purpose is to familiarize you with the computer facilities at the 
University of Houston and the fundamentals of executing a Fortran 
program. 


Keypunch the temperature conversion program given in figure a. 2 
on page 14 of the FORTRAN text. 


1) Run the program using the data card shown in figure 2.1 
on the same page. 


2) The F4.1 format specification used with the read statement 
can also be used to input a real number with an explicit 
decimal point. To illustrate this, run this program again 
with the following data card. 
card column 123 456/7 


data 12S eB 


PROGRAM #2 
WEEKLY PAYROLL 


Write a program to compute the weekly payroll of a company. This 
program is an extension of the program shown in figures 4.3 and 4.4 on 
pages 56 and 57 of the text. . The extended program will take into account 
the deduction of taxes and insurance premuims. The modified program 
should read in one additional piece of informations, INS, which will have 
the value 1 if the employee participates in the company insurance plan, O 
otherwise. The computation of the employee's pay is done as before. 
However, after the program has computed the pay (gross pay) it should 
compute the amount of tax to deduct as follows. If the employee's pay is 
between $0.00 and $200.00 then the TAX is 20% of the pay (.20*PAY), if it 
is between $200.00 and $350.00 then it is 28% of the pay (.28*PAY) and if 
it is over $350.00 then it is 38% of the pay (.38*PAY). The NETPAY can 
then be computed by deducting the TAX from PAY. Finally if the employee 
participates in the compnay insurance plan then an additional $4.25 must 
be deducted from the NETPAY to cover the insurance premium. The program 
should output ID, HOURS, RATE, INS, PAY, TAX, NETPAY. Flowchart this 
extended payroll program, code it into FORTRAN and run it with the 
following test data. 


‘ie® 1a. HOURS RATE INS 


103578 38.2 2.93 0 

223378 39.1 10.41 1 

340109 40.0 | B00" 1 

504332 42.0 4.00 0 
504333 50.0 4.00 1 

504334 80.0 4.00 0 
000000 
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PROGRAM #3 
CAR PAYMENTS 


Car payments are a series of equal payments made at regular intervals 
of time. The time intervals between payments are called payment periods. 
A car payment in financial terms is called an ordinary annuity. Most 
loans are of the ordinary annuity type. You take out a loan, receive the 
goods and don't start paying until the end of the first period, usually 
at the end of the first month. 


Assume that you have purchased a new DATSUN 280-Z and you require a 
loan of $8,000. You wish to calculate what your monthly car payments will 
be. 


The formula for this is as follows: 


LOAN 
CARPMT. = —————__— 

1 - (143 
p Loy 

j 
where 
CARPMT = monthly installment ($) 
LOAN = initial debt to the bank 
N = number of months to pay off debt (i.e. 3 yrs. = 36 mo.) 
i = interest rate charged per month (i.e. 1% = .01) 
REQUIRED: 


1) Different lenders offer different rates of interest. For each of the 
time periods in part (2), calculate a payment if the interest rate 
per month is as follows: 1/2%, 1%, 1 1/2%, 2% 


2) Calculate your car payments for the following time periods: 1 year, 
2 years, 3 years, 4 years 


3) Your output should indicate: 
7 A) Total amount borrowed 
B) Interest rate 
1) Payments (1-4 years) 


2) Total interest paid on the loan (1-4 years) 


1] 


PROGRAM #4 
GRADE STATISTICS 


Write a program to input a series of test grades into GRADE(1),_ 
GRADE(2),...,GRADE(N) and compute and output the following statistics 
concerning these grades: 


1) the lowest grade 
2) the highest grade 


3) the average grade, AVG = sum of all grades/N 
[we ae 
4) the standard deviation, STD = / x (GRADE(I) - AVG) 
=f l=] | 


! 
( N 
a re et hee eet en es err rene eae eer ne nek sae Ce em Rete REE ee ee pete inne te re oer OO eee ween apn encase esi 


(GRADE(1) - AVG)® + (GRADE(2) = AVG)* +...+.(GRADE(N) - AVG)¢ 


N 


Note: this probram while similar to the one in the text on page 124 does 
not need to (and should not) sort the grades. 


Test your program with the following data. 


O1 CO MIO 
oO & CO © 


“si 
NO 
o1 0 OO 01 01 © O11 © 


— 
NN — © 1e>) 
“ICO © Ww 
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PROGRAM #5 
BOWLING 


Bowling is a game where a ball is rolled down a lane at a cluster 
of ten(10) pins. A bowler is allowed a maximum of two(2) balls to knock 
down all ten pins. This is called a frame. A game consists of ten frames 
of ten pins. 


Scoring is basically done as follows: 


1) The scoring for the games is cumulative. The score from the 
previous frame is added to the score for the current frame. 


2) In a given frame, one of three things can happen: 


a) STRIKE - All pins are knocked down with the first ball. The 
scoring is 10 + the pin fall from the next two balls rolled... 


| b) SPARE - All pins are knocked down using two balls. The 
scoring is 10 + the pin fall from the next ball. | 


c) OPEN FRAME - Less than ten pins were knocked down using two 
balls. The score is the total number of pins knocked down. 


3) The first nine(9) frames are handled identically. The game begins 
with a score of zero(0). The tenth frame is slightly different. 
The bowler is allowed a maximum of three balls. The bowler does 
not get a third ball unless he knocks down ten pins with the first 
or first two balls. 


The objective for this problem is to score three games of bowling 
(called a series). | 


REQUIRED: 


1) Score each frame of each game and print out the results of each frame. 
Also, print the total for each game. 


2) Sum the scores of the three games and print out a total for the series. 


3) Write three functions called STRIKE, SPARE, and OPEN to score each 
frame. (Optional) 
4) Input is via a file called BOWLING. Use the following control card: 
$ SELECT HCSCU1206/B@WLING 


Data should be read into an array called BALLS using the format statement 
xxx FORMAT(2112). 
l5 


PROGRAM #6 
BINARY SEARCH 


Searching and sorting are important in many forms of data processing 
Many applications work with large sets of data that must be kept up to 
data--bank records, student records, industrial inventories, store accounts, 
and so forth. In each of these applications the data is in the form of a 
list that must be accessed by means of a "key": for a student the key is 
probably the student ID number. 


Consider an ordered list of student ID numbers in an array ID and 
a list of student scores in an array called SCORE. Suppose we have a set 
of N pairs of values in these arrays. We wish to find out if a student 
is in the class and, if so, output the student's score in the class. 


For this problem, the key will be the student's identification number. 


The ordered array of student numbers and scores is contained in a 
file called MASTER. The first card in MASTER contains the number of 
students in the class. Each student number is six digits long and each 
score is 1 to 3 digits long (i.e. 0 to 100). The following formats should 
be used to input this information. | 


READ(5,1 


,1)N 
1 FORMAT (12) 


READ(5,2) ID(I),SCPRE(I) 
2 FORMAT(16,4X,13) 


~The student numbers to be searched for are contained in a file called 
SEARCH. The following format should be used to input the search key: 


~ READ(5,3) IDN 
3 FQRMAT( 16) 


The last item in SEARCH is student number 999999. 


In place of data cards, use the following JCL comments. 


4 SELECT HCSCU1206/MASTER 
$ SELECT HCSCU1206/SEARCH 
REQUIRED: 


1) Read and list the student numbers and scores. This output Should be 
labeled and on a separate page. 


2) Read and list all search requests. Output the results of each search. 


3) The binary search should be used as a subroutine. Call this subroutine 
BINARY. The arguments to the subroutine should be ID, SCORE, N and IDN. 


4) Assume that class roster are a maximum size of 30 students. 


14. 


The Flowchart for the binary search algorithm is as follows: 


(start 
Se 


“TOW > IHIGH 


al 


a 
DN > ID(MID 


os 


a” 


oa 
ait 
7" 
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: Te MID 
| LOW<-IHIGH+1 | 
| a one, 


WRITE 
'NO DATA FOR 
STUDENT’ ,IDN 


‘ 

bream nmr Teen 2 
t 
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| RETURN ) 
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Nee A 


WRITE 
I= 0 >—} 'SCORE FOR ea ; 
: a TON, 1S" .SCORE(I 
oe 


yee a FAYE AS SOROS OTIC i fina 


EE eC dS bs 


EI. THE ARITHMETIC STATEMENT 


A. What will be the value of X after execution of the following 
Fortran segment? 


yo ee 7 
= X 
X = I 
a)e 2e7 b) -2.7 ey 250 dd) O.7 e) 3.0 


-B. What value is assigned to X? 


N= 8 
Y = 4) 
X = Y * 100/N 
Ay 1 b) 48.0 ec) 0.5 d) 50.0 e) *nota 


C. What value is assigned to X? 


N= 8 
Y - 4.0 
X = Y * (100/N) 
ay) 5,0 b) 48.0 ej)-O.5 d) 50.0 e) *nota 


DD. Are the following two Fortran statements equivalent? 
A is a subscripted variable. 


X = ACI) + ACJ) 
tS ACL a) 


E. Answer True if the statement is properly coded, 
otherwise answer False. 


LY 2s 5 


ie Ao B 

3. Y= (K- 6.) * * 0.5 

4 H= (I-3.)**7.+¢B* 5, 
5. + = (4) 3 

6 YS ae 2B 


| *nota = none of the above 
16 


F, Which of the following assignment statements result in real number 
1.5 being stored 


Ls 


nO OT FS W bd 


FUN 
FUN 
FUN 
FUN 


.. FUN 


FUN 
(a) 
(b) 
(c) 
(d) 
(e) 


in memory location FUN to machine accuracy? 


= 3./2. 
ee a oe 

= 1.42./2. 
= (14+2.)/2. 
O715 © 240 


a ogee 
Le B74 
Chae tae. 


All of the above 


None of the above 


G. What are the final values of the variables in the following 
program segment? 


A= 5.5 

B = 6.2 

ee ee 
J=A 

C= J/I 
A=5 + 4/2 
B= 8/2 * * 3 
» 
, 
3. 
4. 1A 

ce 


(a) 


(b) (c) A) (e) 


Te 


E IL. CONTROL STATEMENTS: 


IF's, GO To's 


A. Which 2 of the following sets of F@RTRAN statements are equivalent? 


Le 


nN 


B. Answer True if 


bob 
br oO 


Oo Oo ss DW Ur & Ho. BH +} 


. GO 


GO 
G¢ 
IF 
IF 
IF 


. IF 
- oe 
me 


IF(A .EQ. 
STOP 
{F(A EO. 
TCG. wie: 
IF{A. .NEx 
IF(B. .GE. 
Gd TO 6 
STOP 
PCA. 280; 
IetS xT. 
GO TO 6 
STOP 
(a) 1 
(b) 2 
(c) 2 
(d) 1 
Ce ad, 


Oe 


ey 
ee, 


> Oo 


wo FP WwW | Hh 


-AND. B .LT. 4.3) GO TO 6 


Gd TO 6 
GO TA 6 


Gd Td 5 
TO TO 5 


Gd Td 4 
Gd TO 4 


the statement is properly coded, else answer False. 


(use default for variable type) 


Toe C12, oy. Dy OX 
GO Te <4, 2. 2) 5. RCT) 
GO TO (3, 4, 5), I*J**2 
TO 2. Se 20% & 

TO Cl, 2» 3h 8 

(A = B) GO Td 100 


AS eG 
(A E 
(A 
(PROG 


i. <2 
Q B) 
GE. -C 


Gd Td 500 
Gd TA 3000 
.AND. (B .EQ. D) GOTO 5 


RAM .EQ. RUBBISH) G@ T@ 15 
(I .LT. J) GO TO 512634 
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C. Are the fortran program segments given in (a) and (b) equivalent? 


1. (a) GO TO (10, 15, 5), I (b) IF(I .EQ. 1) GO TO 10 
IF(I .EQ. 2) GO TO 15 
IF(I .EQ. 3) GO TO 5 


2. (a) TRAE. IB ete X cL 2.5) GO TO 100 b) IFG...or. 8) ee Tw 200 
7 Th CX «LT.°255) GO Te 100 


x, (ay IFC) 10,120. 30 (b) IF(X .GT. 0.) Gd TO 30 
LPs is De) Ge ee 1G 
Gé TA 20 
Acta) TEC LLT. ¥) GO TA 20 (by) LPC 26T. 0° G8 TO 30 
G¢% TO 30 Gd TO 20 


le, 


E III. DO LOOPS, MORE ARTTHMETIC AND CONTROL STATEMENTS, MISCELLANEOUS 


STATEMENTS. 


A. 


10 
20 


30 | 


DIMENSI@N A(5) 

DO 10 1 =, 5 

A(I) = 

Dd 30 T=1, 4 

IF(A(I) .LE. A(I+1)) Gd TA 20 
C@PY = A(T) 

A(I) = A(I+1) 

A(I+1) = C@PY 

STOP 

END 


The following statements are about the above Fortran program. 
Answer True or False. 


me 


The ST@P will be reached and the array A will have ghe 
following values: 


A(1) = 1.0, A(2) = 2.0, A(3) = 3.0, A(4) = 4.0, A(5) 


. The ST@P will be reached and the array A will have the 


following values: 


A(1) = 5.0, A(2) = 4.0, A(3) = 3.0, A(4) = 2.0, A(5) 


. This program is in an infinite loop. 
. Statement #10 will be executed 5 times. 


Statement #10 is illegal because a D@ loop must end with a 


continue statement. 


. Answer True if the D@ statement is properly coded, 


False otherwise. 


D@ 1234, K=1, K 
|) ale SO ie i a 
DO I?) = 2, Ty ek 

DO LO hoe Sy 25. KR 

. DO 2 MMM = 4, 14, 3 

. DO 15 FOR IT = 1, 99, 2 
An 20-7 Sts MT) 


“SMS HD U& & Ww NHN FF 
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= 5.0 


= 1.0 


C. In each of the following program segments, answer True if the 
D¢ LO@GP is properly coded, otherwise answer False. 


1 Dd 1000 I = 1, 10, 2 
A= A+1I* *2 
20-1) The eae 


1000 © CONTINUE 
| LF (1.80. 5) GO TO 20 


oe DG 50 TIK = 5, 20,3 
Bi (IJK) = IJK * (IJK - 12) 
IF (B(IJK) .LT. 0) Gd TA 62 
50 CONTINUE 


62 
ce “+1 De 16 T= 10, 19 
A=T1+28I1%*A 
: 6 DO-20-J = 1;. 10 
20 B=BtJI*A 
fez er as ae — at os ama | 
10 B=Ct+tI*D 
CONTINUE 
5 IF (J .EQ. 10) GO TA 20 
K=I1I+6 
20 Te J - 5 
G¢ TA 10 


D. Answer True if the statement is properly coded, else answer False 


ie R3 = 2R2 - R1 
2: R3 = R2 - R1 * ((C3/RL * * 2 - F) 
3. SPEED = LENGTH/TIME 
4, co TO (le. 2%, Bg7 4), D0 
or CSC141 = Gd T¢ 23 - CENTER 
Gs TP(X + B/EC))s 2, 2, -3 
i. TEA ET. 6) De a = 2p 2 
8. Dd 2 I = Gd TO 7 
9. D@ 20 I = START, END, INC 
10. Go 1-1. 4,5) 


Continued on next page 24 


D. (Continued) 


hie If {A = 3.80. C + DY GO TO Cly 2,3), INDEX 
lee DOO Ko = 1. °k, 3 

13. Th) (Ah 2.2L. =2.)°3 =o = 2 
se AF = (A * GT * B) * G¢ 
£5. A(I) = C(D) 

16. DO|20 K = 3, I, K 

Us CA) ee Ae, 

18. 5:21. + 4. 

19. Dd 8 L= J 

20. SNO. = A. + 2. 

21. Too = 

225 DO) 38 IGT = 1, M3, 2 
3. Ae Ol dy Se aa 

2h, TECK + 3 * ACB) ) 2 
25. IF (A .EQ. B) THEN GO T¢ 12 
26. GG Td (9, 2, 1), A 

27. IF(J) 4, 5, 6 

28. || IF(J < K) Gd TO 9 

29; Dd66A-1, 5 

30. Dd 8TJ=1, 2,1 

le DOL J = 1, 2 

a2, Dd J=1, 9 

33. Dg 42= 4, 1, =1 

34. GG Td 6 = 8 

a5. Dg 6 = 1, 10, -3 

36. X**24+4 

cre ra a 

38. Goi (8. 9, 10) kK 

39. D6 I=1, 5 

40. Dd651=1 

a Lo +2 

a2. SUL = YC i) 

AS. LF(A. .GT. B), GO TO 10 
44. || IF(40. .LE. DOG) GO = 6 
ay EP Be 105 3S 

46. Gd Td 10 


47. |] BELLABS = 3.2 
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E IV. READ & WRITE FORMAT 


A. 


In the following program: 


Le 
Le 


a 


i) 


100 


How many cards are read? 


How many variables are in the 
input list? 


How many variables are read in 
the E13.6 format? 


How many lines are written? 


How many variables are in the 
output list? 


DIMENSION A(2), B(3,2), €(3,2,3).. D(2,3) 

READ C5) DAC@). By (C(O. 2.5). 2=1,3,2), J=153),5 

FORMAT (F5.1, F6.2,(E13.6, 3F5.2)) 

WRITE (6,2) A, (8C1,2), T=1,3). €(3,2,3), ©(2,%), K=1,3) 
F@RMAT (1X, 3E13.6) 

STOP 

END 


DIMENSION X(10) 


X(1) = 2.5 

X(2) = 9.1 

X(3) = 1.7 

WRITE (6,100) (I,X(I), I=1,3) 
ST@P 

FORMAT (3HbX(,11, 2H) =,F4.1) 
END 


The following statements are about the above Fortran program. 
Answer True or False. 


io 


The ST@P will be reached and the following will be printed: 


X(1) = $2.5 
X(2) = 69.1 
X(3) = $1.7 


The ST@P will be reached and the following will be printed: 
X(1) = 62.5bX(2) = 69.16X(3) = 61.7 

It is illegal for the variable I to appear twice in the write 

statement. 


The first time the variable I is encountered in the write statement, 
it will have no value to be printed. 


The write statement cannot work since its corresponding format 


comes after the ST@P statement. 
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Consider the following FORTRAN statements. 


READ (5,100) X,J,P,K 
100 || FORMAT (1X,F8. 2,13, 2X,F6.3,15) 


If these statement are used to read the following data card what 
values will be assigned to X, J, P, and K? 


02 ee 


| 3124.4546314877654410126869124 


(a) X = 3124.454, J = 631, P = 776.544, K = 10126 
(b) X = 3124.45, J = 463, P = 877.654, K = 41012 
(¢) X= 124.45, J = 314, P = 765.441, K = 1268 
(d) X = 124.4546, J = 314, P = 765.441, K = 1268. 


(e) None of the above 


Suppose L is dimensioned to be 2 x 4; that is 
| DIMENSION L(2,4) 


Suppose further that L is assigned the following value 


= oe: ce 


What order will these values be printed out by the following 
FORTRAN statement? 


|WRITE (6,100) L 
100 |) FO@RMAT (824) 


(ay 12345678 
(ob) 13572468 
(a) 15:26:27 4.8 
(4) 15623784 


(e) L cannot be used without subscripts, so the WRITE statement 
is illegal. 


Consider the following FORTRAN program: 


DIMENSIQ@N C (100) 
READ (5,17) N,A,B, (C(I), I = 1,80) 
17|| FORMAT (13,2F6.3,10(F 6.4)) 


» 
WRITE (6,18) C 1. How many cards are used? 


181] FORMAT (5X,5(3X,F15.4)) (a) 8 
| ST@P () 9 
END — | (c) 10 


24 Se Nene of the above 


i Oh 


(Cont.) 


. How many variables are in the input list? 


(a) 4 

(b) 83 
(c) 80 
(d) 103 


(e) None of the above 


- How many lines are written? 


(a) 100 
(>) 16 

(c) 80 

(d) 20 


(e) None of the above 


. How many variables are in the output list? 


(a) 1 
(b) 100 
(c) 80 
(d) 4 


(e) None of the above 


In the following program: 


. How many cards are read? 

. How many values are read? 

. How many lines are written? 
. How many values are written? 


DIMENSION A(10), B(10,5), C(3,4,5) 
|) READ (5,1) AC7), ((BC,J), J=1,4), I=1,7), €(1,2,3) 
1]] FORMAT (2F5.1, F10.2, 3(1X,F7.3)) 

WRITE (6,2) A(7), (B(I,3), I=1,6), C(1,2,3) 
2|| FORMAT (1X, 3F5.2,2X,F10.3) 


Is the following FG@RTRAN segment coded correctly? 


DIMENSION A(10) 
READ (5,1) (A(I),I=1,5), IC@DE, CODE 
1|} FORMAT (3F10. 2, 2X, 4F10.3) 


Answer True or False 
| 25 


() 


H. Answer True if the statement is properly coded, False otherwise. 


1.. READ (5,10) A 
10 || FORMAT (1X,14) 
2 WRITE (6,100) I 


“100 | dana (1X, 14) 


: {nt (12,100) i 
100 || FORMAT (1X, 6HABCDEF, 14) 


WRITE (6,10) A 
10 | FORMAT (1X, 6HABCDE,I4) 


() 


I. In the following program: 
1. How many cards are read? 
ay 65 b) 6 c) 7 d) 8 e) nota 
2. How many variables are in the input list? 
a) 2 b) 10 c) 15 d) 20 e) nota 
3. How many variables are read in a 10F6.5 format? 
a) JO -b) \2 c) Il ay 20 e) nota 
4. How many lines are written? 
ay 5 by ££. @) 8 d) 10 e) nota 
5. How many variables are in the output list? 
a) 2 »b) 10 ey- 45 d) 20 e) nota 
DIMENSION A(10), N(10) 
READ (5,1) A,N 
1}{ FORMAT (10F6.5, 2(15)) 
WRITE (6,2) A,N 
2{|FG@RMAT (1X,10F6.5, (1X,15)) 


STOP 
END 
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E V. SPECIFICATION STATEMENT 


A. 


INTEGER X 

DIMENSI@N K(10), Z(5) 
EQUIVALENCE (K(6), Z(1)) 
Dd 20 X=1, 5 


K(X) = 0 
20 Zin) = x 

STOP 

END 


The following statements (1-5) are about the above Fortran program. 
Answer True or False. 


1. There is no error in this program. 


2. There is an error in this program, but the computer is intelligent 
enough to figure out what was intended, so the program will still 
work correctly. 


3. It is illegal to equivalence K(6) and Z(1) since one is real and 
the other is integer. 


4. The equivalence statement is illegal since Z and K have different 
dimensions. 


5. An equivalence statement of this type can be used to mix integers 
and real numbers in a single array. 


. For each of the following mark T if it is legal in FO@RTRAN, 


mark F otherwise. 


1. DIMENSIG@N K(4, 3, 8) 

2. EQUIVALENCE (A(1, 5), B(2)) 
3. EQUIVALENCE (A, I) 

4. REAL A 


. What values are computed for the following variables by the 


following program? 


(a) (b) (c) 82 (e) 


L [RED ca Ee Nos 
1 aca | Cece af | a | ae 
5 [aces oe 


Continued on next page 


Ze 


C (Continued) 


DIMENSION A(2,5), B(10) 
EQUIVALENCE (A(2,1), B(1)) 
B(1) = 1 
DO 10 f= 1,7 
B(I + 1) = BCI) + 1. 

10|| CANTINUE 
WRITE (6,2) A 

2|| FORMAT (1X,10F7.2) 

STOP 
END 


D. What values are computed for the following variables by the following 


program? 


ee —- pee siecinesiss 


(a) (b) ae “(d (e) 


- 
24) | 6 | Nota | 
; rey | 6 | | 4 not computed e. Nota j 
tam] 6 | os | a not computed | Nota 
: | L(8) | not computed | 9 no ee: a Nota 


Mm Fe Ww 


DIMENSION K(3,3), L(8) 
EQUIVALENCE (K(2,1), L(1)) 
Oe 1 Pei s.2 
De 2 J = 1,3 
2 Ktlea) = 2 3 
1. CONTINUE 
WRITE (6.3) L 
3 FORMAT (1X,110) 
STOP 
END 


dl 
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E VIL. SUBROUTINE AND FUNCTION SUBPROGRAM 


A. What values are computed for 


Main Sub 

COMMON X SUBR@UTINE SUB(Y,Z,U) 
jee COMMON X 

Y= 1. Y=Ytx 

A= 1. Be ey 

B = 8 =] y 42 

C= 5. pe ae oe 

CALL SUB (A lE,C) RETURN 

GAIL) SUB COVA, B) END 


WRITE (6,1): A,B,C, x, 
vi FORMAT (1X, 5F10.2) 


STOP 
END 
DIMENSION A(5,5) FUNCTION F(B) 
READ (5,10) A DIMENSI@N B(25) 
10|| FORMAT (5F10.2) P=" 00 
P = F(A) DO 10:7 = 1,95 
WRITE (6,20) P 10 F = F + B(I) 
20|| F@RMAT (1X,F10.2) RETURN 
STOP END 
END 


The following statements are about the above Fortran program. 
Answer True or False. 


1. The function is illegal, since B has one subscript and A has two. 
2. The value that is printed is the sum of the elements of matrix A. 
3. F cannot be used as a variable in the function F. 
4 


. The END card is not necessary in the function since the RETURN 
will be executed before the end is reached. 


5. It is illegal to have statements labeled 10 in both the main 
program and the subprogram. 


ch ae 


C. What values are computed for 


| (a) 
aalkatanll RecBancnall 


Ee 

2. | SIM G,a). | ade compared _| 

a 

4. 

te 
Main Sub 
COMMON A(10,10), SUM(10,10) SUBR®@UTINE Q@UTPUT (K) 
DIMENSI@N N(10,10) COMMGN A(10,10), SUM(10,10) 
DO 10 t =4.,16 DIMENSI@N K(10,10) 
bd 10 J = 1,10 1) Moe 6 Maid eae Fee 
ACT.) = bo DO 2a = 18 

10 Hite = ee LO SUMUL.1) = Kits d) ob ACI.) 


CALL GUTPUT (N) 
WRITE (6,1) SUM 


RETURN 
END 


| FORMAT (1X, 5F10.3) 
STOP 
END 


D. Consider the following program: 


A= 1.0 FUNCTION ADD(X,Y,Z) 
B= 2.0 : ADD = X+Y+Z 
C= 3.0 RETURN 
SUM = ADD (A,B,C) END 
SUM = ADD (SUM,B,A). 
WRITE (6,2) SUM 
2|| FORMAT (2X,F15.6) 

STOP 
END 

What value is printed for sum? 

(ay 3. tb) Ge te alo. bay 9, (e) Nota 
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\@) 


E. What values are computed for: 


| DIMENSION N(5) 
De 1 1 S155 | 
Ni = 2 
CALL SUBC1 (N) 
WRITE (o,2) N 
F@RMAT (1X, 515) 
STOP 
END 


No 


Nota } 


SUBROUTINE SUBC1 (M) 
DIMENSI@N M(5) 

De eS 

TF Git) «418. 3) Gé-Te 2 
M(I) = M(I) + 1 

Gd TO 1 

M(L) = M(I) + 2 

CONTINUE 

RETURN 

END 


F. What are the final values of the variables of the Main program? 


Main 


COMMON M,E 
M=4 
= 3 
R= 5 
i ee 
CALL SUB “(A, 3,5) 
STOP 

END 


Sub 
SUBR@UTINE SUB (E,M,C) 
COMMON J,A 
E=E+1 
M=M+2 
Je 
A=A+ 3 
CHS 
RETURN 


END 


gt 


E VII. SORTING 
A. Questions 1-5 are related to the following program. 


DIMENSI@N A(10) 
READ (5,1) N. (ATK) K = 1,5) 


Li} FORMAT (15, 5F10. 3) 

21) ke t 

3i| TF (ACK) .LE. AG +1)) GO TO 10 
4\| COPY = A(K) 


ACK) = ACK + 1) 
A(K + 1) = COPY 
GO TO 2 
10/| K=K+1 
IP (e aL. B) Ge 1¢ 3 
WRITE (6,5) (ACJ), J = 1,N) 
FORMAT (1X,5F10.3) 
ST@P 
END 


(n 


Suppose you want to sort the data in ascending order and initially 
A(1) = 7. = A(2) = 2. A(3) = -5. A(4) = 4. A(5) = -2. 
1. What will be the value of N 


at the READ statement? 


2. How many times will the 
statement at label 3 be 
executed? 


3. How many times will the 
statement at label 4 be 
executed? 


4. What will be the final value 
Or Atay? 


5. What will be the final value of K? 


fs La Ts [a Ps Tica! 


ae 


